CU Amiga Super CD-ROM 16/CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso/AIRlink/Install

Text File | 1997-08-14 | 21KB | 1,012 lines

;
; InfraRexx 1.8c Installer Script
; $VER: InfraRexx_Install 1.2 (14.8.97)
;
(message
  "\nWelcome to the\nInfraRexx Installer Utility\n\n"
  "This program will install\n"
  "InfraRexx release 1.8c.\n"
  "\n"
  "The 'Help...' button will provide\n"
  "help during the installation.\n"
  "\n"
  "InfraRexx and InfraJoy are\n"
  "© 1994-1997 by Leon Woestenberg\n"
  "(Digital Disturbance) and\n"
  "Jeroen Steenblik.\n"
)
(welcome)

;
; check AmigaOS version
;
(transcript "Checking AmigaOS version...")
(if
  (<
    (/
      (getversion)
      65536
    )
    37
  )
  (
    (transcript "Aborting because AmigaOS Release 2.04 (or higher) is not available.")
    (abort "\nInfraRexx requires at least AmigaOS Release 2.04 to run.\n\n"
       "Press the Proceed button to abort the installation procedure.")

  )
  (transcript "AmigaOS version 2.04 (or higher) found. Proceeding.")
)
(complete 0)

;
; Ask for the version of the used hardware
;
(set hardware-choice
  (askchoice
    (prompt "What hardware is used?\n(Use 'Help' for more information)")
    (help "About the hardware:\n"
      "    InfraRexx requires a small hardware extension in order to "
      "operate. Due to the availability of several hardware versions "
      "the software has to be configured to use the correct version.\n"
      "\n"
      "Determining the hardware version:\n"
      "    If you have ordered the hardware directly from the authors, you "
      "can read the version number from the print circuit board. If there's "
      "no version indication, you have an InfraJoy v1 design.\n"
      "\n"
      "    If you built (or later patched) the hardware yourself, check the "
      "building (or patch) documentation to determine the version number.\n"
      "\n"
      "    If you have no hardware yet, you can either order it from the authors "
      "or build it yourself. See the documentation for more information on this. "
      "If you choose to install the software now, please select the latest version number.\n"
      "\n"
      @askchoice-help
    )
    (choices
      "InfraJoy v1"
      "InfraJoy v2"
      "InfraJoy v3"
      "InfraJoy v4"
    )
    (default 3)
  )
)

;
; Ask where to install the InfraRexx drawer
;
(set infrarexx-dest
  (tackon
    (askdir
      (prompt "Where should the InfraRexx drawer be installed?")
      (help
    "InfraRexx Destination:\n"
    "    Please choose a place on your (hard)disk where you would like "
    "the InfraRexx software, and documentation to be installed. A new "
    "drawer called 'InfraRexx' will be created there, and most of the "
    "files will be copied there.\n"
    "\n"
      @askdir-help)
      (default @default-dest)
    )
    "InfraRexx"
  )
)
(set @default-dest infrarexx-dest)
(complete 10)

;
; Ask whether to install MagicWB icons
;
(set magicwb-bool
  (askbool
    (prompt
      "Install MagicWB icons?"
    )
    (help
       "MagicWB Icons\n"
       "    Magic Workbench (MWB) is a Workbench appearance. "
       "If you have MagicWB installed, you're advised to use "
       "these icons. MagicWB is copyrighted by Martin Huttenloher.\n"
    )
  )
)
;
; Set the source direcoty for icons
;
(set icons-source
  (if
    (<>
      magicwb-bool
      0
    )
    (
      "MagicWB"
    )
    (
      ""
    )
  )
)

(copyfiles
  (source "InfraRexxEditor")
  (dest infrarexx-dest)
  (infos)
)
(copyfiles
  (source
    (tackon
      icons-source
      "InfraRexxEditor.info"
    )
  )
  (dest infrarexx-dest)
)
(complete 20)

(copyfiles
  (source "InfraRexxDaemon")
  (dest infrarexx-dest)
  (infos)
)
(copyfiles
  (source
    (tackon
      icons-source
      "InfraRexxDaemon.info"
    )
  )
  (dest infrarexx-dest)
)

(complete 30)

;
; Set the hardware version tooltypes
;
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxEditor"
    )
  )
  (settooltype
    "HARDWARE"
    (select
      hardware-choice
      "1"
      "2"
      "3"
      "4"
    )
  )
)
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxDaemon"
    )
  )
  (settooltype
    "HARDWARE"
    (select
      hardware-choice
      "1"
      "2"
      "3"
      "4"
    )
  )
)
(complete 35)
;
; Check for locale.library
;
(if
  (>=
    (/
      (getversion "LIBS:locale.library")
      65536
    )
    38
  )
  (
    ;
    ; Guess catalogs to be installed
    ;
    (set catalog-options
      (+
    (if (exists "LOCALE:Catalogs/dansk") 1)
    (if (exists "LOCALE:Catalogs/deutsch") 2)
    (if (exists "LOCALE:Catalogs/français") 4)
    (if (exists "LOCALE:Catalogs/italiano") 8)
    (if (exists "LOCALE:Catalogs/nederlands") 16)
    (if (exists "LOCALE:Catalogs/norsk") 32)
    (if (exists "LOCALE:Catalogs/svenska") 64)
       0 ; needed because none, or just one directory may exist,
       0 ; in which case the + has too few arguments.
      )
    )
    ;
    ; Ask for catalogs to be installed
    ;
    (set catalog-options
      (askoptions
        (prompt "Which language catalogs do you want to install?\n"
        (choices
          "Dansk"
          "Deutsch"
          "Français"
          "Italiano"
          "Nederlands"
          "Norsk"
          "Svenska"
        )
        (default catalog-options)
        (help
          "Language catalogs:\n"
          "    Starting with Workbench 2.1, Amiga programs can present "
          "themselves in different languages, as long as program specific "
          "catalogs for that language are present. Here you can select "
          "which language catalogs you would like to install.\n"
          "    Use the Workbench `Locale' Preferences program to select "
          "your preferred language. InfraRexx will appear in that language, "
          "when the language's catalog is available and installed.\n"
          "\n"
          @askoptions-help)
        )
      )
    )
    ;
    ; Install the selected catalogs
    ;
    (set current 0)
    (while
      (< current 7) ;latest number indicates #languages
      (
    (if
      (IN catalog-options current)
      (
        (copyfiles
          (prompt "Copying the selected catalogs...\n")
          (source
        (tackon
          "Catalogs"
          (select current
            "dansk"
            "deutsch"
            "français"
            "italiano"
            "nederlands"
            "norsk"
            "svenska"
          )
        )
          )
          (pattern
        "#?.catalog"
          )
          (dest
        (tackon
          "LOCALE:Catalogs"
          (select current
            "dansk"
            "deutsch"
            "français"
            "italiano"
            "nederlands"
            "norsk"
            "svenska"
          )
        )
          )
          (help @copyfiles-help)
        )
      )
    )
    (set current (+ current 1))
      )
    )
  )
)
(complete 40)
;
; Rename previous codeset directory if present
;
(if
  (=
    (exists
      (tackon
     infrarexx-dest
     "Codesets"
      )
      (noreq)
    )
    2
  )
  (
    (transcript "Codesets directory found.")
    (rename
      (tackon
    infrarexx-dest
    "Codesets"
      )
      (tackon
    infrarexx-dest
    "Your_Pre_1.8_Codesets"
      )
      (prompt
    "Renaming your old codesets directory to prevent "
    "overwriting your edited codeset files.\n")
      (help
    "Renaming Codesets directory:\n"
    "    The Install Utility tried to install the codeset "
    "directory, but such a directory was already present. "
    "You are now asked to rename the existing directory, so "
    "that the contained files will not be overwritten. "
    "Select either 'Proceed' to rename the existing directory to "
    "'Your_Pre_1.8_Codesets' or 'Skip' to resume without renaming."
      )
      (confirm)
    )
  )
)
(complete 45)
;
; Ask for codeset to be used
;
(set usedcodeset-options
  (select
    (set usedcodeset-choice
      (askchoice
    (prompt "Please select the command codeset that you want to use initially:\n")
    (choices
     ;"Akai"
      "Canon"
      "CDTV"
     ;"Goldstar"
     ;"Hitachi"
      "JVC"
     ;"Kenwood"
     ;"NEC"
     ;"Onkyo"
      "Panasonic"
      "Philips"
      "Pioneer"
      "Reflex"
      "Samsung"
      "Sanyo"
     ;"Sharp"
      "Sony"
     ;"Teac"
      "Technics"
     ;"Yamaha"
    )
    (default 0)
    (help "Initial codeset selection:\n"
          "    You are asked for a command codeset that will be used if "
          "you start the InfraRexx Daemon immediately after installation. "
          "Please select an electronics brand you possess which you want "
          "InfraRexx to communicate with. Of course you can later change this.\n"
          "\n"
          @askchoice-help
    )
      )
    )
   ;(shiftleft 1 0)  ;Akai
    (shiftleft 1 1)  ;Canon
    (shiftleft 1 2)  ;CDTV
   ;(shiftleft 1 3)  ;Goldstar
   ;(shiftleft 1 4)  ;Hitachi
    (shiftleft 1 5)  ;JVC
   ;(shiftleft 1 6)  ;Kenwood
   ;(shiftleft 1 7)  ;NEC
   ;(shiftleft 1 8)  ;Onkyo
    (shiftleft 1 9)  ;Panasonic
    (shiftleft 1 10)  ;Philips
    (shiftleft 1 11) ;Pioneer
    (shiftleft 1 12) ;Reflex
    (shiftleft 1 13) ;Samsung
    (shiftleft 1 14) ;Sanyo
   ;(shiftleft 1 15) ;Sharp
    (shiftleft 1 16) ;Sony
   ;(shiftleft 1 17) ;Teac
    (shiftleft 1 18) ;Technics
   ;(shiftleft 1 19) ;Yamaha
  )
)
;
; Set FROM tooltype to used codeset
;
(tooltype
  (dest
    (tackon
      infrarexx-dest
      "InfraRexxDaemon"
    )
  )
  (settooltype
    "FROM"
    (tackon
      infrarexx-dest
      (tackon
    "Codesets"
    (select
      usedcodeset-choice
     ;"Akai"
      "Canon"
      "CDTV"
     ;"Goldstar"
     ;"Hitachi"
      "JVC"
     ;"Kenwood"
     ;"NEC"
     ;"Onkyo"
      "Panasonic"
      "Philips"
      "Pioneer"
      "Reflex"
      "Samsung"
      "Sanyo"
     ;"Sharp"
      "Sony"
     ;"Teac"
      "Technics"
     ;"Yamaha"
    )
      )
    )
  )
)
(complete 50)
;
; Ask for additional codesets to be installed
;
(set additionalcodeset-options
  (askoptions
    (prompt "Please select additional command codesets that you want to install: (Empty codesets are marked with ¹)\n"
    (choices
       "Akai¹"
       "Canon"
       "CDTV"
       "Goldstar¹"
       "Hitachi¹"
       "JVC"
       "Kenwood¹"
       "NEC¹"
       "Onkyo¹"
       "Panasonic"
       "Philips"
       "Pioneer"
       "Reflex"
       "Samsung"
       "Sanyo"
       "Sharp¹"
       "Sony"
       "Teac¹"
       "Technics"
       "Yamaha¹"
    )
    (default usedcodeset-options)
    (help
      "Additional codesets selection:\n"
      "    Here you may choose codesets that will be installed into the "
      "codesets directory; either empty codesets that you use as a base "
      "project for learning new codes, or supplemental codesets for "
      "other electronic brands than that of the initial codeset.\n"
      "\n"
      @askoptions-help)
    )
  )
)
;
; Merge the used and additional codesets together
;
(set codesets-options
  (BITOR
    usedcodeset-options
    additionalcodeset-options
  )
)
;
; Install the selected codesets
;
(set current 0)
(while
  (< current 20) ;latest number indicates #codesets
  (
    (if
      (IN codesets-options current)
      (
    (copyfiles
      (prompt "Copying the selected codesets...\n")
      (source
        (tackon
          "Codesets"
          (select
        current
        "Akai"
        "Canon"
        "CDTV"
        "Goldstar"
        "Hitachi"
        "JVC"
        "Kenwood"
        "NEC"
        "Onkyo"
        "Panasonic"
        "Philips"
        "Pioneer"
        "Reflex"
        "Samsung"
        "Sanyo"
        "Sharp"
        "Sony"
        "Teac"
        "Technics"
        "Yamaha"
          )
        )
      )
      (dest
        (tackon infrarexx-dest "Codesets")
      )
      (help @copyfiles-help)
    )
      )
    )
    (set current (+ current 1))
  )
)
(complete 55)
;
; Guess documentation to be installed
;
(set documentation-options
  (if
    (=
      hardware-choice
      2
    )
    3
    31)
)
;
; Ask for documentation to be installed
;
(set documentation-options
  (askoptions
    (prompt "What documentation do you want to install?\n"
    (choices "InfraRexx User Guide"
         "Hardware Info/Build/Patch Guide"
         "Hardware Schematic (IFF format)"
         "Hardware PCB Layout (IFF format)"
         "Hardware PCB Layout (Postscript format)"
    )
    (default documentation-options)
    (help "Documentation description:\n"
      "    The InfraRexx User Guide describes every aspect of this package, "
      "except the hardware construction. It is therefore advisable to "
      "install and read this guide.\n"
      "\n"
      "    The hardware can be ordered from the authors (read the "
      "InfraRexx User Guide), but you can also build it yourself. "
      "For this purpose, there is a Hardware Guide to guide you "
      "through the building process in a comfortable way. For users "
      "who already have the hardware, there are patch instructions "
      "to upgrade it.\n"
      "\n"
      "    Choose the Hardware Schematic and/or Print Circuit Board "
      "Layouts as a source for your hardware. Both are available in "
      "IFF bitmap format, common to the Amiga, while the layout is "
      "available in PostScript as well, used by professional "
      "(laser)printers.\n"
      "\n"
      @askoptions-help)
    )
  )
)
(complete 60)
;
; Determine if MultiView exists on this system
;
(set multiview-exists
  (exists
    "SYS:Utilities/MultiView"
    (noreq)
  )
)
;
; Install InfraRexx User Guide if selected
;
(if
  (IN documentation-options 0)
  (
     (copyfiles
      (prompt "Installing the InfraRexx User Guide...")
      (source "InfraRexx.guide")
      (dest
    (set userguide-dest
      (askdir
        (prompt "Select a place for the InfraRexx User Guide.")
        (default infrarexx-dest)
        (help @askdir-help)
      )
    )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "InfraRexx.guide.info"
    )
      )
      (dest userguide-dest)
    )
    (copyfiles
      (prompt "Installing the InfraRexx Order Form...")
      (source "OrderForm")
      (dest userguide-dest)
      (help @copyfiles-help)
      (infos)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "OrderForm.info"
    )
      )
      (dest userguide-dest)
    )
    (if
      multiview-exists
      (tooltype
    (dest
      (tackon userguide-dest "InfraRexx.guide")
    )
    (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 70)
;
; Install InfraRexx Hardware Guide if selected
;
(if
  (IN documentation-options 1)
  (
    (copyfiles
      (prompt "Installing the Hardware Building Guide...")
      (source "Hardware/Hardware.guide")
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "Hardware/Hardware.guide.info"
    )
      )
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
    )
    (if
      multiview-exists
      (tooltype
    (dest
      (tackon infrarexx-dest "Hardware/Hardware.guide")
    )
    (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 75)
;
; Install InfraRexx Hardware Schematic if selected
;
(if
  (IN documentation-options 2)
  (
    (copyfiles
      (prompt "Installing the Hardware Schematic...")
      (source "Hardware/Schematic.iff")
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "Hardware/Schematic.iff.info"
    )
      )
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
    )
    (if
      multiview-exists
      (tooltype
    (dest
      (tackon infrarexx-dest "Hardware/Schematic.iff")
    )
    (setdefaulttool "MultiView")
      )
    )
  )
)
(complete 80)
;
; Install InfraRexx Hardware Layouts (IFF) if selected
;
(if
  (IN documentation-options 3)
  (
    (copyfiles
      (prompt "Installing the Hardware Layouts (IFF)...")
      (source "Hardware")
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
      (choices
    "SilkScreen.iff"
    "ComponentSide.iff"
    "SolderSide.iff"
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "Hardware"
    )
      )
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
      (choices
    "SilkScreen.iff.info"
    "ComponentSide.iff.info"
    "SolderSide.iff.info"
      )
    )
    (if
      multiview-exists
      (
    (tooltype
      (dest
        (tackon infrarexx-dest "Hardware/SilkScreen.iff")
      )
      (setdefaulttool "MultiView")
    )
    (tooltype
      (dest
        (tackon infrarexx-dest "Hardware/ComponentSide.iff")
      )
      (setdefaulttool "MultiView")
    )
    (tooltype
      (dest
        (tackon infrarexx-dest "Hardware/SolderSide.iff")
      )
      (setdefaulttool "MultiView")
    )
      )
    )
  )
)
(complete 85)
;
; Install InfraRexx Hardware Layouts (PostScript) if selected
;
(if
  (IN documentation-options 4)
  (
    (copyfiles
      (prompt "Installing the Hardware Layouts (PostScript)...")
      (source "Hardware")
      (dest
    (tackon
      infrarexx-dest
      "Hardware"
    )
      )
      (choices
    "ComponentSide.ps"
    "SolderSide.ps"
      )
      (infos)
      (help @copyfiles-help)
    )
  )
)
(complete 90)
;
; Ask for examples to be installed
;
(set examples-options
  (askoptions
    (prompt "Please select any examples you want to install:"
    (choices "Scala Example"
         "Toolmanager Example"
    )
    (default 3)
    (help
       "Examples:\n"
       "    These examples show you some ways of using InfraRexx. "
       "Use your imagination and available software to achieve "
       "other ways of using this product, that even the authors "
       "didn't think of.\n"
       "    And ehh..., feel free to let us know what that might be...:-)\n"
       "\n"
       @askoptions-help)
    )
  )
)
;
; Install the selected examples
;
(set current 0)
(while
  (< current 2) ;latest number indicates #examples
  (
    (if
      (IN examples-options current)
      (
    (copyfiles
      (prompt "Copying the selected examples...\n")
      (source
        "Examples"
      )
      (pattern
        (select
           current
           "Scala"
           "ToolManager"
        )
      )
      (dest
        (tackon infrarexx-dest "Examples")
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
        (tackon
          icons-source
          "Examples"
        )
      )
      (pattern
        (select
           current
           "Scala"
           "ToolManager"
        )
      )
      (dest
        (tackon infrarexx-dest "Examples")
      )
      (infos)
      (help @copyfiles-help)
    )
      )
    )
    (set current (+ current 1))
  )
)
(complete 95)
;
; Ask for RexxEvent to be installed
;
(set rexxevent-bool
  (askbool
    (prompt
      "Install the handy 'RexxEvent' software?\n\n"
      "Besides remote-controlling programs via ARexx, "
      "you can steer them via keypresses and other inputevents, "
      "if you have RexxEvent running.\n"
    )
    (help
       "RexxEvent\n"
       "    This small program enables you to force events to happen "
       "using ARexx. An event can be the touch of a key, or the click "
       "of a mousebutton, etc. In combination with the InfraRexxDaemon, "
       "this enables you to control certain software via your remote "
       "controller, that would otherwise not be controllable via ARexx.\n"
    )
  )
)
;
; Install RexxEvent
;
(if
  (=
    rexxevent-bool
    1
  )
  (
    (copyfiles
      (prompt "Copying RexxEvent...\n")
      (source
    "RexxEvent"
      )
      (all)
      (dest
    (tackon infrarexx-dest "RexxEvent")
      )
      (infos)
      (help @copyfiles-help)
    )
    (copyfiles
      (source
    (tackon
      icons-source
      "RexxEvent"
    )
      )
      (dest
    (tackon
      infrarexx-dest
      "RexxEvent"
    )
      )
      (choices
    "RexxEvent.info"
    "RexxEvent.doc.info"
      )
    )
  )
)
(complete 100)

(exit "You have just installed release 1.8c of InfraRexx.\n"
      "\n"
      "Enjoy its presence!\n"
      "\n"
      "InfraRexx and InfraJoy are\n"
      "© 1994-1997 by Leon Woestenberg\n"
      "(Digital Disturbance) and\n"
      "Jeroen Steenblik.\n"
)